EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


} 
kK 7 | 
**F ILE®*1D**STRALLOC 
| 
| 
SSSSSSSS_ITITTTTTTT RRRRRRRR = AAAAAA—sLL LL oo0000 = ccececec 
SSSSSSSS_TTTTTTTTTT RRRRRRRR —AAAAAA_—LL LL 000000 == ceccecec 
$s TT RR RR AA AA LL LL 00 oo cc 
ss TT RR RR AA AA LL LL 00 oo CC 
Sh) TT RR RR AA AA LL LL 00 oo CC 
$s TT RR RR AA AA LL LL 00 oo CC 
SSSSSS TT RRRRRRRR AA AA LL LL 00 oo CC 
SSSSSS TT RRRRRRRR AK AA LL LL 00 oo CC 
$$ TT RR RR AAAAAAAAAA LL LL 00 oo cc 
SS TT RR RR AAAAAAAAAA LL LL 00 oo cc 
ss TT RR RR AA AA LL LL 00 oo CC ee 
SS TT RR RR AA AA LL LL 00 oo cc . 
SSSSSSSS TT RR RR AA AA LLLLLLLLLL LLLLLLLLLL 000000 cccccccc cece 
SSSSSSSS TT RR RR AA AA LLLLLLLLLE LLLLLLLLLL 000000 eccccccc ecee 
LL 11111] SSSSSSSS 
LL HII] SSSSSSSS 
LL co a 
tL | ee 
LL | eg 
LL 7 oe 
LL 1 SSSSSS 
LL 1 SSSSSS 
LL 1 $$ 
LL 1 $s 
LL 11 $s 
LL 1 $$ 
LLLULLLLLL «© III = SSSSSSSS 
CLUELLLLELE «= TITET ©=—-SS8SS88S 
| 


STRSSALLOC STR 
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74 
LIBRTL.SRCJSTRALLOC.B32; a1 


MODULE STRSSALLOC ( 
pDEnT = "1-012" File: STRALLOC.B32 Edit: RKR1012 
BEGIN 


RRO RARER RARE EAA AAA REAR EREA EEA AAAAA AEE A AAA AAAARATAAEEAAA AREER ES 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, ' MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


ie we SOFTWARE IS py ence UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY IN oe CE WITH THE TERMS OF SUCH Tints AND WITH THE 
Hd INCLUSION © F_ THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE yi ANY _OTHER 


® 

® 

® 

e 

® 

® 

® 

® 

i 0 R . 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTUARE 1S, HEREBY = 
ie TRANSFERRED. * 
® 

is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

® 

® 

® 

® 

® 

® 


T 
'® AND SHOULD NOT BE CONSTRUED AS A MENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BJE 
OMM 


MN 9 2 3 3 > 3 SS SIO OOOO 


NAMEN $9 ODNOU EWN CO OONOAUE WN OOONOU Sw 


See RRR RARE AAAAAAEAAAAAAEAAAAAAAAAE ERATE ETRE T EAA ARATE 
i] 


Sooooooco[oo 


'e4 
' FACILITY: String handling : allocation. 
i ABSTRACT: 


String allocation is mostly done in-line in the STR$ routines 
by macros. This module contains the data structure for short 
strings, the initialization routine for that data structure, 

and an allocation routine which is called by the macros when 

one of the short string queues runs dry. 


i ENVIRONMENT: VAX-11 User Mode 
i AUTHOR: John Sauter, CREATION DATE: 12-MAR-1979 


Cooooooooo 
COOoCooCoooo 


: MODIFIED BY: 


! 1-001 = Original. JBS 13-MAR-1979 
! 1-002 = Store in STR$W_ALLOC_LEN the maximum number of data byt 

which the use? a pi ace in PS string. This will ee be 
‘ a multiple of 8. JBS 14-MAR 
! 1-003 - Compensate r the new structure of STRS$$Q_SHORT_Q. JBS 16-MAR-1979 
! 1-004 - Rearrange how storage is gotten for 0 n gaoty short queue to try 
: to improve performance. JBS 27-4 
! 1-005 = Get 128 pages at a time and hand ay out to strings 3, neede eg | 
: This is another orsgapt to ssoroye pertornence. BS han 979 
' 1-006 Reorrange how the 128-page chunk anded out so that w 
: we need not give a whoie page to each string size. Jes *03-APR-1979 


NOUE WN $0 OONO UE WN 0 COON ME WIN O ODNOU EWN OO OODNO EWN OOONOU Sw 
a a a a kt kt kd od dd od I IOOOO 


PUPP B BB BEE EB BE FANNIN I IAI POP PONIPINOPUNYPYD SS Ss Ot OO OS OS 


“a 7 
16-Sep-1984 


84 01:26: AX-11 Bliss-32 V4.0-7 33. 
14-Sep-1984 12:4 ‘00 LIBRTL. SRCJSTRALLOC. 832;1 
3 0058 1! e's 1 = Use the new STR messages — Big pu JBS 16-MAY-1979 
; 0059 1 | 1-008 = Make some minor ofits bas h eview. JBS aan 
; & 0060 1 | 1-009 = Use the new symbol names = STRMACROS, REQ. JBS 21-J 
; 6 0061 1! 1-010 - Change the ca a sequence te STRSSALLOC * SHORT so that the caller 
3 6¢ poe 1 i Loops doing REMQUEs. Th) his shortens the Code in the calling 
>: © 063 1: m uence. JBS 21- a 
>; 664 064 1! 1-011 - tring. speedup e. a sYgnatl ing from this module. RW 9-Jan-198C 
: «65 0065 1! 1-012 - TRSSALLOC SHO we get error return from LIBSGET_VM 
; 66 0066 1: ieanee on djat ely y with status of am, INSVIRMEM, 
$ 67 0067 1! RKR SOMAR- 1982. (FTI/FT2 QAR #156) 
: 68 0068 1 i- 
; 69 806° 1 
; 70 0070 1 !<BLF/PAGE> 


N 7 
ort 1e-Sep-1986 12:40:00 EtTartussReSstAALLOC = 839; 1 


; F 0071 1! 

. -£ O76 1 ! SWITCHES: 

& Ry 

; 8 0073 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; @m O79 1! 

; 2679 078 1 ! LINKAGES: 

; 80 079 1! 

y' i 0080 1! NONE 

; ¢ 0081 1! 

; 4 Ore 1! TABLE OF CONTENTS: 

3 4 13 

; 8 084 1 

: 86 0085 1 FORWARD ROUTINE 

; «687 0086 1 STRSSINIT : NOVALUE, ! Initialize the short queues 
;: 0087 1 STRSSALOC_SHORT; ! Add space to a short queue 
; 0088 1 

; 0089 1! 

; wi 0090 1 ! INCLUDE FILES: 

ae. 0091 1! 

; 0092 #1 

; Be set} : REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 
5 4 Ht 4 : REQUIRE ‘RTLIN:STRMACROS'; ! String macros 

; 1106 1 LIBRARY ‘RTLSTARLE'; ! System symbols 

; + 1107 1 

: 100 1108 1! 

: 101 1109 1 =! MACROS: 

; 106 138 3% 

; 10 1117 1°! NONE 

: 104 Wi¢ .s 

s 105 11135 1 ! EQUATED SYMBOLS: 

; 106 1114 1! 

3; 107 1115 (1 

: 108 1116 «1 LITERAL 

: 109 1117 1 !¢ ‘ 

s V0 1118 1 ! Define the number of bytes to get when a short string runs out. 

3 a 1132 : } This space is divided up into short strings. 

: 118 1 1 : STRSK_ALLOC_LRG = 512*128, 

3; ¥19 11 : 1 ! Define the number of bytes to take out of that space for each length 

: 116 1124 1 ! of string. This must be larger than the largest possible short 

s 117 1125 1! string. 

; «118 1126 1 !- 

3; 119 1127 1 STRSK_ALLOC_SML = 512; 

; 120 1128 #1 

s Yer 1129 1! 

9 § 1130 1 ! PSECTS: 

1 2 28 

: 124 te 

3 ; 2 i ? ' DECLARE _PSECTS (STR); ! Declare psects for STR$ facility 
3 1s ie 1! 

; 128 1136 1 ! GLOBAL STORAGE: 


8 
STRSSALLoc 1G-sep-1964 01:26:31 YAKGIT BLieg=2 V4. 0-742 


' 

GLOBAL 

! The following cell is zero until the other data has been initialized. 
STRS$V_INIT : INITIAL (0), 


i The following are the queues. They get initialized to empty before 
} being used for the first time. 


STRS$$Q_SHORT_Q : STRSSSHORT_STR CSTRSK_NUM_SH_QS); 
a 


OWN STORAGE 


a 

The following queue controls the passing out of the 128 pages gotten 
when we need more stor eae: We get space 128 pages at a time to avoid 
fragmentation with LIBSGET_VM's storage. 

This queue usually holds 0 or 1 blocks. The block is up to 128 pages 
in length. If an AST — off while we are eS tect tee. a second Large 
block will be allocated. When a block is exhausted the 

for another before calling LIBSGET_VM. 


PAGE_QUEUE : VECTOR [2]; 


queue is examined 


EXTERNAL REFERENCES: 


DONA VNEWN "OVD ONOUES WN 0 OONOUEWN O09 


EXTERNAL ROUTINE 
LIBSGE 


a a lh el a a el ee el ce el el ee ll el el ll el ce el el el el eel el el 

SOLA PALMA LAIN EE EE EE EEA AANA NANA AS 

MEW 

Ee i eS Ss 
ec me ee a De ee ce ee ee ce ct ee ee ee ee ee ee ee eed eB 
DONNA NNN SNA AA AAPA AAOUUIIIMIIIUI RR BE EE ER REE 
SODNAVE WN CO OBNANE WN OODNOU EWN OCONEE WN OOON 
I ee a ee ee ee aD ed ed ed 


VM; ' Get virtual storage 
'¢ 
08 The following error codes are used by this module: 
68 Z 
69 EXTERNAL LITERAL ; 
70 STRS_NORMAL : UNSIGNED (6), ! Successful completion 
4 STR$_INSVIRMEM; ! Insufficient virtual memory 


See ae. ee earn en ee 


8 
1E-Sep-1964 01:26:11 yAR=I BL iag-32 v4.0-742 | 


GLOBAL ROUTINE STRSSINIT ! Initialize the queues 
: NOVALUE = 


'44 
! FUNCTIONAL DESCRIPTION: 


Initialize the short string queues. This routine is called 
by the allccation macros before touching them, grey idee that 
STRSS$SV_INIT is clear. To be AST re-entrant, this routine 
goes the laicial ization, with ASTs off, only if STRS$V_INIT 
ss clear. 


fo Te Te: SANS NSS 


i FORMAL PARAMETERS: 
NONE 
i IMPLICIT INPUTS: 
STRSSV_INIT.mv If 1, do nothing. An AST has initialized 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
J 
' 
' 
' 
the queues. 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
J 
' 


OO00000MM 


i IMPLICIT OUTPUTS: 


STRSSV_INIT.mv Set to 1. 
STRS$$Q_SHORT_Q.wq Set to ‘‘empty'’ for REMQUE/INSQUE 


i COMPLETION CODES: 
NONE 
i SIDE EFFECTS: 
Disables and re-enables ASTs if they are enabled at entry. 


sssssessss 


BEGIN 


LOCAL 
AST_STATUS; 


'¢ 
! Disable ASTs so we can test STRS$V_INIT. We must not permit an AST 
! after we start to initialize the queues, since such an AST could 
} try to allocate a string. 

AST_STATUS = S$SETAST (ENBFLG = 0); 

IF ( NOT .STRS$V_INIT) 

THEN 

BEGIN 

'¢ 


We must do the initialization. Mark all short string queues as empty. 
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INCR_ INDEX FROM 1 TO STRSK_NUM_SH_QS DO 
BEGIN 


Ww 


OO 


Wr 


uw 
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PARAS BPEL EEE 
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16-Sep-1984 01:26:11 VAK"11 BLiss-32 v4.0-74 : 6 
ee tiae hs ries A eet the ts PTs Cee a 


LOCAL 
G_ADDR; 


Q att STRSSO SHORT_Q C.INDEX*STRSK_ALL_QUA, 0); 
° =. Py 
gO ADDR + ZUPVAL = .Q_ADDR; 


14 
Mark that we have obtained no space from LIBSGET_VM. 


= PAGE_QUEUVE [0] = PAGE_QUEVE [1] = PAGE_QUEUE [0]; 
Mark the initialization as complete. 

: BLOCK CSTRS$V_INIT, 0, 0, 1, 0] = 1; 

END; 


14 
If ASTs were enabled when we entered, re-enable them. 


IF (.AST_STATUS EQL SSS$_WASSET) THEN S$SETAST (ENBFLG = 1); 
RETURN; 
END; 


=POPININININININI NNW WWW BPP EEE 


! end of STRSSINIT 
.TITLE STRSSALLOC 
SIDENT \1-012\ 
.PSECT _STRSDATA,NOEXE, PIC,2 
00000000 00000 STRSSV_INIT: 
00004 STR$$Q_SHORT Q:: 
OO0F4 PAGE_QUEUE: 
.BLKB 


0 3 
240 


8 
-EXTRN L BSGET_VM, STR$_NORMAL 


I 
TRS_INSVIRMEM, SYSSSETAST 
.PSECT _STRSCODE,WOWRT, SHR, PIC.2 
.ENTRY STRSSINIT, Save R2,R3,R4 

VAB SYSSSETAST 4 

MOVAB STRS V_INIT, R3 


#1, SYSSSETAST 
STRS$V_INIT, 2$ 
a NDEX 


52 ’ * INDEX, R2 


Norn 2 2 OO 

fe "Wovno 
=" 
ad 

z rPBWOOs8s 
“or }r-oo 
z<orw 
i. a 


See Oe Oe Oe Se Be Oe ee eee 
tS 
rrr 
oo 


MPS NOOOW Mma 


«ooo nomso oo 


#7, R2 
STRS$Q_SHORT_Q(R2J, Q_ADDR 


; Routine Size: 81 bytes, Routine Base: _STRSCODE + 0000 


; 258 1265 1 


8 
TRSSALLOC Ib-se 1984 01:26: AX-11 Bliss-32 V4.0-7 
aUgt3 1 736871382 93:28:40 YOTBRTL SRESSTRAL LOS .O455 1 
6 53 D 9 MOVL -ADDR, (Q_ADDR) 
046 A D f MOVL ADDR, 4(0_ADDR) 
£7 2 3 € AOBLEQ #30, INDEX, ~1$ 
1 00F4 9E 00 OVAB GE_QUEUE, R1 
OOF8 ¢ 1 00 00039 MOVL R1, PAGE_QUEUE+4 
OOFS4 ¢ 1 p 00 : MOVL 1, PAGE UEUE 
6 gi 904 BISB2 #1, STRSSV_INIT 
09 g Di 9046 2$ CMPL Ast STATUS; "9 
0 DD 00048 PUSHL #1 
64 1 FB 00040 CALLS #1, SYSSSETAST 
04 00050 38: ET 


Sete Fe Fe Se Be Ge Se Be Ge Be Be 


211 AX-11 OL isg-32 V4.0-74 
:00 LIBRTL.SRCJSTRALLOC.832;1 
a 


te a short string 
of the string to be allocated 


GLOBAL ROUTINE STRSSALOC_SHORT ( 
LENGTH 


)e 


++ 
FUNCTIONAL DESCRIPTION: 


Allocate a short string. This is called only if the short 
queue for the string is empty. Space is obtained in large 
chunks for the allocation pool, if necessary, and one string 
from this pool is used to satisfy the request. Unlike other 
versions of the string package, no unallocated strings of this 
same + 4 are created. 


SIDE EFFECTS: 


May allocate virtual storage. 
If it must but cannot, return STR$_INSVIRMEM 


} 
} 
} 
i 
7 : The call ng sequence invloves doing a REMQUE 
74 ; observing that it fails, and then calling this routine. 
75 81 : After this routine returns, loop back to the REMQUE, waiting 
317 for it to succeed. 
78 84 1 | FORMAL PARAMETERS: 
279 85 : 
280 8 ! LENGTH. rl.v The number of bytes wanted in the string, 
81 8 ' The attempt to allocate a string with this 
o¢ 4 many data bytes from the short queues failed. 
384 30 ! IMPLICIT INPUTS: 
SB 4 i STR$$Q_SHORT_Q.mq One of these queues is empty or we 
287 9 ! wouldn't have been called. 
rs 94 } PAGE _QUEUE .mq Get a page from here if necessary. 
30 IMPLICIT OUTPUTS: 
29 i STR$$Q_SHORT_Q.mq The residue of the old big chunk may be 
29 : ut on its queue for later use. 
$98 PAGE _QUEUE .mq ut 128 pages on here if it is empty. 
396 COMPLETION CODES: 
2 i STRS_NORMAL 
STRS_INSVIRMEM If not enough memory to allocate to queues 
i 
i 
i 


BEGIN 


BUILTIN 
INSQUE, 
REMQUE ; 


OCAL 
RETURN STATUS, 
ALLOC_CENGTH, 


ee ee me a ee ae ec ce ee ee ce ee ee ee ee ee ee ee ec ce ce ce ee a ee ee ee ee ce ee ee ee ee ee ed eed ed 
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1984 01:26:11 AX-11 Bliss-32 V4.0-74 P 9 
1984 93:28:50 LIBRTL.SRCISTRALLOC.83 31 ye (4) 


14 
' Compute the number of bytes we must allocate in this string. The 


header length is added. 
ALLOC_ LENGTH = ((.LENGTH + (STRSK_ALL_QUA = 1)) AND ( NOT (STRSK_ALL_QUA = 1))) H 


ALLOC_OFF SE 
ALLOC_DONE, 
ALLOC_BLOCK : REF VECTOR, 
LARGE LEFT 
INSQUE_ADDR, 
STRING BLOCK : REF BLOCK C, BYTE] FIELD (STRSSHORT_FIELD); 
+ 
! Define the offsets into ALLOC_BLOCK. This vector remembers how much of the 
current Large block can still be used for allocation. 
LITERAL 
A_ALLOC_FWD = 0, ! Forward pointer 
3 A_ALLOC_BAK = 1, ' Backward pointer 
3 ALLOC_ = ¢: ! Number of free bytes 
3 K_ALLOC_LEN = 35; ! Length of this header 
3 
3 
3 
3 
3 


+ STRSK_HED_LEN + STRSK_RESIDUE; 


FWIN OC OONOAU EWN OC ODNOUES WN OO OONAOYV EWN" OOONOUE WW 


| 
| 
! number of bytes wanted is rounded up to the next eight, and the 
| 
| 


4 
4 
4 
4 
4 
4 
4 
4 
34 + 
$¢ If there is already a page on the page queue, use it to satisfy this request. 
35 
$2 IF (REMQUE (.PAGE_QUEUVE [0], ALLOC_BLOCK)) 
$2 i. BEGIN 
33 i We need more space on the page queue. Get a lot of pages to avoid 
$2 checkerboarding LIBSGET_VM's space, since we will never return our pages. 
: : 
3% LOCAL 
36 CHUNK_BASE; 
36 RETURN_STATUS = LIBSGET_VM (ZREF (STRSK_ALLOC_LRG), CHUNK_BASE); 
$08 IF ( NOT .RETURN_STATUS) THEN RETURN STR$_INSVIRMEM; 
6 ALLOC_BLOCK = .CHUNK_BASE; 
6 LARGE-LEFT = STRSK_ACLOC_LRG; 
68 END 
69 ELSE 
0 BEG! 
L FT = .ALLOC_BLOCK CL_ALLOC_AMT]; 


ARGE_LE 
RETURR_STATU = STRS_NORMAL; 


'¢ 
Point to the short queue that these strings are to go on. 
INSQUE_ADDR = STR$$Q_SHORT_Q C.LENGTH, 0]; 


ee ee a em ce ce ee em ee ee ee ee ee 8 ee ed ae od od ed 
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H 8 
16-Sep-1984 01:26:11 AX-11 Bliss-32 V4.0-74 
12286871382 93:28 :d0 LIBRTL.SRCISTRALLOC.B3 31 
: 374 1 9 ! Divide part of this space into strings of the requested length and 
; f? } } put them in the appropriate short string queue. 
: 37 1388 5 ALLOC_OFFSET = 0; 
: f : ¢ ALLOC_DONE = 0; 
; 380 1386 WHILE (((.ALLOC_OFFSET + .ALLOC_LENGTH) LSS STRSK_ALLOC_SML) 
3 1 1 AND (.LARGE_LEFT GEQ .ALLOC_LENGTH)) DO 
; ¢ 1388 BEGIN 
3 ti 1389 STRING BLOCK = 
: 1390 -ACLOC puoce + rica + STRSK_HED_LEN + STRSK_RESIDUE; 
3 5 1391 STRING BLOCK CSTRSW_ALLOC"LEN) = 
; 1 3 -ACLOC_LENGTH ="STRSK-HED LEN = STRSK_RESIDUE; 
; 38 139 INSQUE (.STRING_BLOCK, ..INSQOE_ADDR); 
; 388 1394 ALLOC_DONE = 1; 
; 89 1395 ALLOC_OFFSET = .ALLOC_OFFSET + .ALLOC_LENGTH; 
: 390 139 LARGE_LEFT = .LARGE_LEFT = .ALLOC_LENGTH; 
ae). 139 ND; 
: 398 1399 3 t+ 
: 394 1400 2! The space remaining, if any, is returned to the page queue for the next 
; 395 1401 ! string bucket that comes up empty. Note that, if there was so Little space 
; 396 158 ! that we were unable to allocate even a single pering. the space is discarded. 
3; 397 140 ! This can nepean only at the end of the “‘Large’’ blocks. In this case we 
; 398 1404 ! will be called again, since the REMQUE will fail again, and we will 
; 399 1405 ' allocate more space on the page queue. 
ie ge 
: 40 1408 IF ((.LARGE_LEFT GEQ (K_ALLOC_LEN*ZUPVAL)) AND .ALLOC_DONE) 
; 40 1409 THEN 
: 208 an feo 
: rts] Hh There is enough space left in the large block to put it on the queue. 
ee rr 
; 410 1416 INSQUE_ADDR; 
: 41@ 1418 ALLOC_BLOCK = .ALLOC_BLOCK + .ALLOC_OFFSET; 
3 (41 1419 ALLOC“BLOCK CL_ALLOC"AMT) = .LARGE_CEFT; 
; 416 1420 INSQUE_ADDR = PAGE ope UE (0); 
: 4415 1421 INSQUE” (ALLOC_BLOCR CA_ALLOC_FWDJ, ..INSQUE_ADDR); 
2 et a 
; 418 1424 RETURN .RETURN_STATUS; 
; «6419 1425 1 ND; ! of routine STRSALOC_SHORT 
03FC 00000 -ENTRY STRSSALOC_SHORT, Save R2,R3,R4,R5,R6,R7,R8 
00000000" EF 9 000s MOV PAGE QUEUE, R9 
8 C SUBL #8, SP 
f 000C ADDL a7, LENGTH, R2 
7 8A 00011 BICB a7, R 


1266 


1346 
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STRSSALLOC 
“012 


1 
1 
¢¢ 04 ¢0 14 ADDL2 
& 00 8 F 17 REMGUE 
dD iC 1B vc 
3 AE 9F 1D PUSHAB 
04 AE 00010000 8&F gp OVL 
046 =A F PUSHAB 
000000006 F CALLS 
E BLBS 
000000006 8F 8 8 MOVL 
4 ; C RET 
54 gf AE DO 0005D 1$ MOVL 
56 00010000 oF Dd Rhee MOVL 
, 7 48 BRB 
26 08 A4 go Beer 28: MOVL 
896 A 0004E oe 3 
51 046 AC 1 ¢€3 00051 3$: SUBL 
51 07 8A 00056 BICB2 
58 FF10 C941 9E Ober OVAB 
51 04 0005F CLAL 
57 D4 00061 CLAL 
5 51 2 C1 00063 4$ ADDL3 
00000200 + 8F 55 D1 44 CMPL 
1E 18 0006 BGEQ 
52 56 01 0007 CMPL 
19 19 0007 BLSS 
53 04 A144 H 0007 catty 
FE A3 52 04 A3 QOO7A SUBW 
00 688 63 OE 0007F INSQUE 
57 01 D 44 #4 MOVL 
51 25 CO 00086 ADDL 
56 52 C2 eH SUBL 
DS 11 0008C BRB 
oc 56 D1 OOO8E 5$ CMPL 
11. 19 00091 BLSS 
OE 57 €9 00093 BLEC 
54 51 CO 00096 ADD'.2 
08 A4 56 DO 00099 MOVL 
51 69 9E 0009D MOVAB 
00 «Bl 64 QE OO0A0 INSQUE 
04 O00A4 6$ T 
; Routine Size: 165 bytes, Routine Base: _STRSCODE + 0051 
; $30 1636 1 
: 421 14 1 END ! end of 
i 42 1428 1 
; 1429 0 ELUDOM 
: PSECT SUMMARY 


Attributes 


d-seo-1984 0):26:11 


AX-11 Oi lege V4.0-7 
LIBRTL.SRCJSTRALLOC. b3 31 


ALLOC_LENGTH 
apie _QUEOE, ALLOC_BLOCK 


ch INK BASE 
#65536, 4(SP) 
rl Natl 


IBSGE 
retubse sect oy" 
#STRS_ THSVIRREM, ¥n0 


CHUNK_BASE, ALLOC_BLOCK 
W5538, LARGE_LEFT 


BALL OC BLOCK), LARGE LEFT 
“STR$_RORMAL, RETURN-STATUS 

i. LENGTH, Ri 

STR$$Q_SHORT_QCR1], INSQUE_ADDR 

ALLOC_OFF pser 

ALLOC “DONE 

ALLOC. sh gNCTH. ALLOC_OFFSET, RS 


ARGE_LEFT, ALLOC_LENGTH 


rae 0% tt Bey ite hie BLOCK 


ALLOC_LEN -2(5TR 
(STRING Bcbens. "Soc INSQUE NRODR) 
#1, ALLOC_DON 
ALLOC_LENGTH, ALLOC -OFF SET 
ALLOC"LENGTH, LARGE LEFT 


4% 
LARGE_LEFT, #12 
6$ 


ALLOC_D 
ALLOC ia + Loe _BLOCK 
LAR “B 


module STRS$$ALLOC 


PeSe Se Se Se Ge Se Se Se Be Se Be Se Se Se Be Fe Be Se Se Ge Fe Se Se Ge Ge Ge Ge Fe Se Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge 


1 
=( 


Bae 


; Stee: 


un Time :06. 
G pA Time: 90:6¢-0 
: > Lines/CPU Min: 128 
3 penemne sere tas 27449 
3 ry Used: 89 pages 
; nee ation Complete 


246 code + 252 data bytes 


TRSSALLOC 1b-se Sep-1984 AX-11 Bliss-32 V4.0-74 Page 12 
At a ~Sep-1 3B 3; 28:40 LIBRTL.SRC CISTRALLOC. B32;1 ’ (4) 
: _STRSDATA $ NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pie tents? 

; <ZSTRSCODE 46 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

Pee ee tee ho cls Se ee oe Syabels socceewe Pages Processing 

: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.8 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:STRALLOC/OBJ=O0BJ$:STRALLOC MSRC$:STRALLOC/UPDATE=(ENH$:STRALLOC) 


-—~ 
‘- 
i 
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